From d07881a6c753eb5f13a3b687e40bb5df2be72111 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Fri, 24 Aug 2007 10:41:10 +0000 Subject: [PATCH] (hs-match-data): Delete alias. (hs-hide-block-at-point, hs-find-block-beginning) (hs-show-block): Use `match-data' directly. --- lisp/progmodes/hideshow.el | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el index 83167ba5a40..85d26427a3f 100644 --- a/lisp/progmodes/hideshow.el +++ b/lisp/progmodes/hideshow.el @@ -406,11 +406,6 @@ to the variable `mode-line-format'. For example, Note that `mode-line-format' is buffer-local.") -;;--------------------------------------------------------------------------- -;; system dependency - -(defalias 'hs-match-data 'match-data) - ;;--------------------------------------------------------------------------- ;; support functions @@ -526,7 +521,7 @@ and then further adjusted to be at the end of the line." (if comment-reg (hs-hide-comment-region (car comment-reg) (cadr comment-reg) end) (when (looking-at hs-block-start-regexp) - (let* ((mdata (hs-match-data t)) + (let* ((mdata (match-data t)) (pure-p (match-end 0)) (p ;; `p' is the point at the end of the block beginning, @@ -651,7 +646,7 @@ Return point, or nil if original point was not in a block." (while (and (re-search-backward hs-block-start-regexp nil t) (not (setq done (< here (save-excursion - (hs-forward-sexp (hs-match-data t) 1) + (hs-forward-sexp (match-data t) 1) (point))))))) (if done (point) @@ -825,7 +820,7 @@ See documentation for functions `hs-hide-block' and `run-hooks'." ;; ugh, fresh match-data (looking-at hs-block-start-regexp)) (setq p (point) - q (progn (hs-forward-sexp (hs-match-data t) 1) (point))))) + q (progn (hs-forward-sexp (match-data t) 1) (point))))) (when (and p q) (hs-discard-overlays p q) (goto-char (if end q (1+ p))))) -- 2.30.2